home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 August: Tool Chest / Dev.CD Aug 00 TC Disk 1.toast / pc / tool chest / development kits / mpw related / dts mpw goodies / flookup < prev    next >
Encoding:
Text File  |  1990-09-14  |  182 b   |  12 lines

  1. # Lookup dir:
  2. # Fast read-only, directory-only version
  3.  
  4. Set olddir "`Directory`"
  5. Set Exit 0
  6. Directory "{1}"
  7. Open -r
  8. Set xstatus {Status}
  9. Set Exit 1
  10. Directory {olddir}
  11. Exit {xstatus}
  12.